Option Explicit
Sub C_Sample025()
    Dim myRng As Range
    Set myRng = Range("A1")                                     'Nxs
    With myRng
        .RowHeight = Application.CentimetersToPoints(2)         'C
        .ColumnWidth = Application.CentimetersToPoints(2) _
        * (.ColumnWidth / .Width)                               'e
    End With
    Set myRng = Nothing                                         '
End Sub



